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Lots in issue. Am cramped for SHAace. 
Complete Adventure, Article on how toa 
write same. (1/2 article. Rest of 
magic stuff mext month.) Articles on D & 
N Micro boards, Mittendorf High Res 
board, Final solution to Quick printer 
Il problem, lots of letters, discussion 
of adding a disk. 

Two nice programs by John Wilson. We 
just made available his BerZertker 
program ($9.95) and he made us nice gift 
Of two programs for Journal. 

Fampea sent neat article to fix 65D 
file access. Got article on reverse 
Video. This issue gonna cost AARDVARK a 
bundle in gift certificates, 
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ADVENTURE WRITING 


There is no kind of computing that 
I enjoy more than either playing or 
writing ADVENTURES. These come closest 
of any programs currently available to 
matching my pre-camputing- 
days-mytholoqical-picture of what a 
camputer should doa. When yau are 
olaying an ADVENTURE the darn machine 
seems ta speak English. Instead of 
inputing "i" to go we and “2°. ta go 
down, you just tell the computer "GO UF" 
and it does it. Tt even talks back to 
you in English. 

It also turns your little 8k desk 
tap computer inta a do-it-yourself build 
a world kit. The nice thing about the 
world that you build is that you can 
walk through it and pick up things, drop 
things, look at things and try things. 
You can build a place to fly spaceships, 
slay dragons, or climb mountains. 

There are, of course, some slight 
prablems inherent in getting a little 
bitty computer that speaks in numbers 
and has an I1.Q. of effectively zero to 
do all of that. Take heart, however, 
while it took a long time to come up 
with techniques that will allow that to 
be done efficiently, it is like 
balancing an egg on end. Tt*s only hard 
until you see how it’s done. 

To demonstrate the techniques, we're 
going to include a listing of DEATH SHIF 
in this JQURNAL. DEATH SHIF was the 
first ADVENTURE that I wrote and I make 
no pretentions that it if up to the 
standards we currently program at. {Ba 
is a somewhat limited ADVENTURE a little 
less sophisticated than what we now do. 
It is however kind of fun and it does 
show all of the techniques that make a 
camputer look sa bright. 


to have a little 
problem discussing those techniques. 
It?s one of those subjects where no 
matter what we cover first, there is 
something else that should have been 


We are qaing 


covered befare we could cover that, soa 
bear with us a little. Tt may take a 
couple readings of this article to get 


it all straight. 

The first thing I was concerned 
with in weiting an ADVENTURE was ta get 
the thing to speak English, or at least 
look like it spoke English. L 2c 2 By 
setting up two strings. Tf you look at 
the DEATH SHIF listing, line 299 gives 
you WH which is the first two letters af 
each of the verbs that the system 
understands. Actually, Wt is GO + TAKE 
+ DROF + TIE + REPLACE + OFEN + LOOK, 
and so an. We also have a string which 
cantains the first two ‘characters of 
each of the object words which the 
computer will understand. That*s OF 
which appears ain line 700-710. The 
first twelve letters ain Of for instance 
stand for NORTH, SOUTH, EAST, WEST, UF 
and DOWN as those are six of the most 
common object words that the camputer 
will have to cope with. 

Now we have, in effect, two lists 
of wards. One list of verbs and one 
list of all the objects. All we have to 
do is to input a string and figure out 
which of these words the player is 
using. We do put one canstraint on the 
player. He has to use the normal 
English syntax for a command - verb 
first and then the abject. In DEATH 
SHIF, we use the subroutine fram 1730 
to 1760 to input a string from the 
olayer and separate aut the first twa 
letters of the first word and the first 
two letters of the last word. We do 
that by looking for the last blank in 
the sentence being input and then taking 
the first two letters after the last 
blank (ASB). For the first word we take 
the first two letters of the sentence as 
a whole. (RS) 


The next important thing is to turn 
these groups of letters into numbers so 
we know what number verb and what number 
object we are talking about. We use the 
subroutine fram 240 —- 280 in DEATH SHIP 
to do that. All it does is ta take AS 
(the first two letters of the first 
word) and go through the string holding 
the first two letters of each of the 
verbs until ait finds a match. When it 
finds one, it then picks up the number 
of the matched verb and goes ta line 260 
which does the same thing far the string 
holding the names of all the 

objects. (O88) 

The only constraint on this system 
is that you are limited to having verbs 
and objects which dea not share the 
first two letters of their names. or 


around 


instance, you could mot have a "CANDLE" 
and & "CAN" in the same adventure. While 
we used only two letters per word, you 
can decade more and get a wider range of 
vocabulary. However the more letters you 
decade, the slower the program will 
PUI. 


At this point in the ADVENTURE, we 
have a mumber F which is the number of 
the verb and a number designated S which 
is the number of the object. Now we can 
start branching out and doing some 
things. The réal secret to speed in the 
adventure is the ON-GOTQO statement in 
line 300, Once we have F we cam use the 
ON-GOTOQ to branch ta individual 
subrautines to service each verb. F 


Line 300 cantains one GOTO routine far 
each ane of the verbs the system 
understands. 

Now we have the English decaded 


imta numbers, we need ta take a step 
back and decide what we are qoing to 
decade. We have to design a universe 
and decide on some objects that we are 
going to put anto it. We also have to 
design it in terms of being able ta move 
easily im ait. Ta design the 
universe, the first thing we have ta do 
is ta draw a map. TI won’t include a map 
af DEATH SHIF here because of space 
limitations, but suffice it ta say that 
when yau qo through it each loacatian on 
the ship connects ta each ather location 
in one of six directions (NORTH, SQUTH, 
EAST, WEST, UF and DOWN). Amang 


ADVENTURE programmers, each descreet 
location is usually referred to as a 
Pr onm” That doesn’t change the fact 


that it can be anything from a mountain 
top to a closet. T have included == an 
example af an adventure worksheet such 
as we use during the writing operation. 
The first thing we do is ta go through 
the map and name all lacations and make 
up a numbered list of each location in 
the adventure. In DEATH SHIF there are 
a total of 18 descreet locations. Now 
we Have to make amap of this whole 
thing that the computer can read. 
That’s what the six columns on the right 
hand side of the worksheet are for. 
They are labeled the six directions (N, 
Bn) Tg kes Aes and D). What they contain 
is the number of the room that is in 
that direction fram the room in that 
POW . For instance, fram the radia room 
which is lecation number 1, the first 
five directions are zeros because there 
are no roams either north, south, east, 
west, or up, But the 6th element (down) 
is a 7? because room number 7 (the aft 
deck) is #7), you will note that it 
Shows a 1 ain the UF column because the 


radia room (#1) is "up" from the aft 
deck. Tt also shows a 6 in the first 
calumn because the midships deck is 


"narth" from the aft deck. In that 


fashion, we go though the entire map ancl 
list ain each column what roam, if any, 
is in each direction from the room on 
that row. Once it is set up, it is easy 
to look at any location and see where 
you can go from there. For instance, 
look at the midship*s deck entry (Raw . 
#O). From the midship*s deck, room #5 
is narth, roam #7 is south, room #2 is 
up roam #i2 is dawn and there are no 
rooms to the east and west. This can be 
read into the computer in an Nxé A aly « 
NM being the number of rooms, and 6 being 
the directions that can lead off that 
PCM . This is actually done in lines 
760 ~ 800 im DEATH SHIF. It reads in six 
different numbers for each one of the 
rooms. We actually have a lot of blanks 
here because in a data statement the 
camputer assumes a zero if there is 
nathing between the commas and in mast 
instances there are only one ar two 
exits from a roam, , 


Now we can move the adventurer 
around his little universe. All we need 
to dois tao set a single Variable, in 
this case L, tao be equal to the roam 
that the character is in. Then when we 
decode his sentence, the first six 
objects are the directions. Morth is 
word #1, South is #2 and so on. All we 
have to dois to decode that row number 
for the room he is in (L) and see if 
there is anything in that object number 
to mave to. For instance, if he is in 
room #2 and says “GO DOWN’ then S, the 
second word that we are going to decade 
is going to be a 6 and we look at F Lath, 
find out that there is a & in that _ 
location and then we change his locatian 
to equal 6 He is now on the midship"*s 
deck, The lines that actually do that 
are from 890 through 1900, The line 
that does the actual change in position 
is line 1000. There are a lot of things 
in there that are logic constructs 
which we will discuss later, but the 
real meat of it is IFP(L,S) - that is 
the FP value for the room where you are 
and the second word he put in. If it is 
greater than zero then the adventurer 
maves to that point in the array. 

Now that we have all the 
descriptions listed by number and each 
ane agrees with the number location you 
are oim, all we have to dois to print 
Dé(the roam you are in) to picture where 
you are. 

Refore we can discuss haw we can 
show the picture of things around YOu, 
we have to leok at a second important 
array ~- that of all the objects in the 
Game. There is a second worksheet that 
we use for that which is somewhat 
Similar, but ai lot simplier, than the 
map ooand direction worksheet. Fach 
abject has an associated name and number 
already and now has an associated 
location. We start by Listing all of 


the objects an the sheet and numbering 
them. In DEATH SHIF and oather 
ADVENTURES . T have used the canventian 
af making all the partable objects 
caontiquicus in the lower half at the 
array and all the non-portable objects 
cantiquicus in the tap half af the 

are ay . To see if an object is movable, 
lI need anly compare the number of the 
object with the number of the last 
mavable abject to see if it can be 
picked up and carried. Those things that 
have Special conditians an being picked 
up amd carried, as say water which would 
need a bucket, are put in between the 
portable and non-partable objects for 
slightly meater logic. We set up two 
arrays now, the first is O#¢(X%) which has 
the mame of each of the objects in the 
ADVENTURE. We also set up a location 
array LX). In the L array we stare the 
room number in which each af these 
objects will ultimately appear in. i 
they are ta he aff screen, Say im a 
closed locker ar not yet in existance 
until a player does something, then we 
give them a number higher than the last 
roan mumber and they never appear in the 
descriptions. There is ane camplication 
im DEATH SHIF which I would probably 
change if T were ta do it again. Ir art 
attempt ta use all of the possible 
locations in the array, and knawing that 
Me the tes Hy Uy and D would not need ta have 
lLacatians in that they were not that 
type of objects, I offset the lacations 
Six bytes fram the abject array. 
Theretore, LCX-6) equals the lacation of 
Ghject xX. Tt turned out that I had ta 
type in sa many X-6"s that I didn’t end 
Up Saving any space anyway. 

Sao mow we have the basic 
information we need ta mave araund an 
ADVENTURE and look at everything. All 
we need to know is what room number the 
adventurer is in and we can print an 
associated descriptian and then we scan 
through the array LX) and anything that 
has the same number as that room number 
must be there and can therefore be 
printed alang with the description. The 
line that allows us to do that are 1180 
through  i21lo. Lines 1200 ta 1219 tells 
you whether or not there are exits in 
the six directions by going through the 
row for the room number you are in and 
anything that has a number other than 
zero must be another room. T.E. if you 
are in Roam 4, we word at 
P4€6,1),P 6.12) -<F (646) to see if 
anything is there. With just this much 
im the system we can walk around and see 
what is in every roam. After this 
things get simplier - aif a little bit 
mare confusing. 

Once you have this structure set up 
it is very easy to pick up and drop 
things and take them with you. We 
assigned one location, ©, to be the 
location number for the player himself. 
Anytime the machine scans through the 
LX) array and find a zera that means 


that the player is carrying the item. 
Therefore, ta have him pick it up all we 
need to do is ta decade the word GET ar 
TARE look at the location of L(X) for 
that object"*s pasitian and if it is the 
same as the room the player is in, L, 
then we set the location of that object 
equal to oO. Tf it’s a viola, then he 
is carrying a viola. Of course we have 
to check ta see iif the object can be 
picked up. Qne mistake in an ADVENTURE 
lead to the embarassing ability of the 
adventurer ta pick up a wandering stream 
and put it into his knapsack. 


The routine to decade that in D.S. 18 in 
lines 360 ta S10, The reason why the 
routine is sa long when all it has to doa 
is toa find out if an object is next to 
you and make it equal toa zera is that we 
put a lot of conditions on things that 
could be picked up or mot picked up at 
certain times. Most af that is 
subsidary logic which we will discuss 
later in the game. 


(TO BE CONTINUED IN AUGUST) 
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10 REM BASIC IN ROM USERS WHO HAVE NOT 
REPLACED BASIC #3 WILL 

20 REM HAVE TQ ADD THE SET UF TAPE FROM 
THE WORD PROCESSOR IN 

=O REM VOL1,#2 (THE STRING BUG FIX) AND 
ADD X=USR(X) TO LINES 

40 REM 250,260, 720,1700, 1720, 1780 

100 FORX=1TOSO:PRINT:NEXT:Ti=Ss T2=03 CA= 


mr 
hen See 


110 DIMF (18,46) ,O8(44),0¢644) ,D$(18) :G05U 
RSSO1GOTOLO1O 

i2O FPRINTSsPRINT"TELL ME WHAT TQ DO":GOS 
URI7 30 

i230 IFL (32) =L (18) ANDL (18) « >OTHENITG20 

140 IFAS="HE"THENI 6460 

150 IFFS=1THENFT=FT+1:s IFFT=250RF T=30THE 
NPRIST'’LIGHT GETSING Dimi?” 

160 IFFT S33THENF3=0 

170 T2=Te+1: IFTS=60THENT2=0: T1i=Titis:s IFT 
1=9THENIS20 

1BO IFCA=24THENPRINT" IT’S TICKING LOUDE 
R's T3=Ta+is IFTS=14 THENISSO 

190 IFF420OTHENPRINT'IT’?S LEAKING! !"sF4= 
F4+is TFF4=7THENF4=0:L (32) =18 

195 IFAS="CL"ORA$=" TU" THENAS="G60" 

200 ITFAS="GE" THENAS="TA" 

205 IFRS#="RA"ANDL=46THENRS="ST" 


210 ITFAS="SM"ORAGS="BR" THENA$="HI" 

ee TFA$="TH"ORASG="FO" THENAS="DR" 

2o0 TFAS="IN" THENY=0O: GOTOS20 

240 FORY=1TOLEN (WH): TF MIDS (WS, Y, 2) =AsSTH 
ENF=¢Y¥+1)/2:GOTO260 

250 NEXT 

260 FORX=17TOLEN (CO) STEPS: IFMID$(O%, X, 2) 
=RSTHENS= (X+1) /2:1GOTO280 

2?) NEXT 

280 TFFI=lANDF<e +1 THENFPRINT' IT DROWNED-I 
FOLD YOU I CAN’T SWIM! '!"sEND 

290 IFP< 1 THENIZO 

S00 ON(F-1)GOTO360, 480, 1440, 1390, 1350, 1 
240, 1019, 500, 490, 13460 

S10 TFS=SANDL (18) =OTHENFRINT"'CANT—-CARRY 
ING TO MUCH":GOTOL29 

220 TFXS880RY -2S2THENPRINT" HUH? ?"sGOTOI 
20 

oO FileOs TIFS=S1ANDL (9) < + STHENFRINT "CANT 
Yere Tu? HIGH" sonTui.2o | 

340 IFS=S31ANDL (9) =STHENL=3:Le=3: GOTO116 
t) 

ao GOTOR9O 

S60 TFS=19ANDL (14) =OTHENF/=1 

S70 TFRS="WA" THENI S80 

32753 IFS=8THENOS (8) ="ROPE"sF2=0 

380 IFR$="HI"ANDL=LOANDL (17) =OTHENIS10 


290 ITFS?CATHENPRINT' IT CANT": GOTO120O 
400 IFS=19ANDL (14) < -OTHENPRINT"NO HAMME 


R":GOTO120 


410 IFS=11LANDF7=OTHENFRINT"IT*’S NAILED 
DOWN" L013) =1:GOTO1L20 

420 IFS=1iANDL (8) =SOTHENL (8) =1 

4A3Q IFS< 7THENL2O 

440 ITFS=8THENF 2=0 

450 ITFY>B80RL (S-6)< +L THENFRINT"T DONT &S 
Ee 2" so0Treiey 

460 LFC=7THENPRINT"T CAN? T. I°M CARRYIN 
GS FO MUCH": GOTO120 

479 TFC# 7ANDL (S~-6) =LTHENL (S-6) =O: C=C+1 


480 IFF=3ANDS>6ANDL (8-6) =OTHENL (S—6) =L: 
C=C-1 

490 IFF=10QNDS8=22THENFS=0 

SOO IF F=9ANDS=22ANDL (16) =OTHENPR=1:FRIN 
T'OFFOSITE OF LIGHT=UNLIGHT" 

S10 GOTOLZO 

S20 FRINT"I°M CARRYING" :FORX=1TO3@: TFL ( 
X) SO THENFRINTOS (X+6) pY=V+i 

S30 NEXT: IFY=OTHENFRINT"NOTHING 

S40 GOTOLZO 

SSO FORX=17044: READOS (X) :NEXT 

560 DATA"NORTH", "SOUTH", "EAST", "WEST", " 
UF". "DOWN 

570 DATA"WIRE", "ROPE", "KEY", "AXE", "RADI 
O", "GLOVES", "MESSAGE", "CUTTER 

580 DATA"CRATE", "PRESERVER", "BUCKET", "M 
OF", "NAILS", "HAMMER" 

590 DATA" TIMEPIECE", "FLASHLIGHT", "SCREW 
DRIVERS" 

600 DATA"BOME WIRED TO A FOST" 

610 DATA"LIFEROAT", "FORTHOLE", "TABLE", " 
SWIMMING FOOL” | ) 
620 DATA"DOOR TO HOLD-LOCKED OTHER SIDE 
". "PORTHOLE", "MAST", "FORTHOLE" 

630 DATA"HEAVY HINGED LOCKED DOOR" 

640 DATA"ANCHOR CHAIN HANGING OVER THE 
SIDE" 

6530 DATA"EMERGENCY LOCKER", "LOCKED DOOR 
~ HAS WINDOW" 

660 DATA"SUPFLY CABINET", "WATER", "STARE 
OARD RAILING", "LOCKED BRIG" 


670 DATA"HINGES","& FAINT TICKING NOISE 
" "STGN-ENGINE ROOM AFT" 

680 DATA"CLOSED DOOR" 

690 W="GOTADRHITIREOFLOLIUNCU" 

700 OF="NOSQOEAWEUPDOW I ROKEAXRAGLMECUCRE 
REUMONAHAT IFLSCBOLIFOT" 

710 O%=0%+" ASWDOPOMAPOHEANEMLOSUWASTLOH 
IA SICL” 

720 FORX=17OS@8:READL (X) sNEXT:L=1 

750 DATARS y Sa 145 175 14 9054 SO1G, Syi1s 
50,10, 2, 29,31 

7AG DATAT. 7. tac 145761054. 516310,5,8,32 
S18. Gs 15,51, 105 10,16 

750 FORY=1TO18:FORX=1 706: READ (Y,X) :NEX 
Th. 9 

760 OAT Fawkes a eae swan 


ae cae te Gee ete ewe ee er ee te et tae Sst a a 


F79 DATAnas2OnnsGasnanctnT aps en des Ganga l 


Ph a a ae) 


en ITA cas ow ae eee ee ews 


790 DATAnsd ds ASr Gana sloan anne an aan lOns 
1© 

BOO DATAssassSnn alana aaa lana 

810 FORX=1TO18: READDS (X) : NEXT 

820 DATA"RADIO ROOM ", "SHIFS BRIDGE" 
S20 DATA"TOF OF FLAG FPOLE.","QVER THE §S 
IDE", "ON THE BOW" 

840 DATA"MIDSHIFS DECK", "AFT DECE", "AL 
IFE BOAT", "ENGINE ROOM" 

B50 DATA"THE HOLD", "JANITORS CLOSET", "A 
HALL WAY", "A DOCTORS CABIN" 

840 DATA"CAPTAINS CABIN", "A DANE, SMELL 
Y, WET BILGE" 

870 DATA"ON AN ANCHOR CHAIN", "THE BRIG" 
» "SWIMMING FOOL" 

830 RETURN 

890 IF (R¢="SW"ORE$="FO") ANDL=7THENIS40 


900 IFRS< >"FPO"ANDRS« "LI" THEN?SO 

910 TFL >8ANDL< >7ANDL< > 1 S5ANDLE > 16ANDLé« + 
48NDL« 214 THEN9SO 

920 IFL=4THENL=14:L2=L:GOTO1160 

BO IFL=14THENL=4:L2=4:GOTO1160 

940 IFL/2=INT (L/2) THENL=L~2 

950 LeL+islLe2=L:2GOTO1160 

960 IFRS="AN" AND (L=SORL=14) THENL=16:L2= 
16:GOTG1160 

970 IF (B$="ST"ORBH="RA") AND (F2=O00RL (4) « 
70) THENIT 370 

980 IF (B¢="ST"OREBS="RA") ANDL=6THENL=42L 
2=4;GOTO1160 

990 Le=L:IFS>6THENPRINT"CANT GO THERE": 
GOTOL20 

i900 IFF(L,S) >OTHENL=F(L,S)sL2=L:GOTO11 
6) 

1010 IFPRS="AR"ORRS=""THENL2=L:GOTO1160 
1020 IFBRS="TI"ANDL (15) =OTHENPRINT' TIME 
IS “Tite es GOToi so 

1030 IFLO=7ANDR¢="LI" THENL2= 

1040 IFRS. "FO" THENLO9O 

1O350 IFL=7THENLZ=18 

10960 IFL=16ANDFS3=1THENL2=15 

1070 IFL=4THENL2=14 

1080 IFL=1LSTHENL2=16 

1090 IFL=12ANDBS="WI" THENL2=14 

1100 IFL=1S5ANDER¢="BR"THENL2=17 

1110 IFL=SANDBS="MA" THENLZ=5 

1120 IFL=6ANDB$="ST" THENL2=4 

1130 IFL=SANDRS="AN" THENL2=16 

1140 IFLS< +L THEN1I180 

1150 PRINT"I SEE NOTHING SPECIAL": GOTO] 
20 

1160 FRINT'I AM IN "D#(L):s¥=O 

1170 IF (L=100RL=150RL=9) AND (F3=O0RL (16) 
“O) THENL S80 


1180 FPRINT'T SEE "+FORK=17TOQS8:IFL(X)=L2 
THENFRINT" kK"QG$¢X+6) 3s YVY=¥+1 

1190 NEXTSPRINT:Le=L: IFY=OTHENFRINT "NOT 
HING"' s PRINT 

1200 FRINT"ORVIQUS EXITS ARE" sFORX=1TQO6 
TIFF CL, X) sOTHENFRINTOS (XxX) 

12190 NEXT: GOTO1L20 

220 L2=8O: TFR#$="WI" THENL 2=14: IFL=14THE 

NL2=1i2 

1230 GOTOLI8O 

1249 FORX=1T044 

12350 TFL=8ANDR#S="LO"ANDL (X) =S9THENL (X) = 
8:08 (35)="OQREN LOCKER 

1260 IFR#="CA" THENS=37 | 

1270 TFL=123AQNDS=S7ANDL (X) =S0OTHENL (X)=125 
:0O$¢37)="QFREN CAR. 

1280 NEXT 

1290 IFL=1SANDRé="RR"ANDL (3) =OTHENF (1S, 
1)=17:06¢(40)="0FREN BRIG" 

1300 TFL=14ANDR$="D0O" THENF (14, 2)=12: 0% ¢ 
SOJ="QFEN DOOR'SF (12, 1)=14 

1310 TFL=1LOANDE$="DO" THENIL ASO 

1320 GOTOI2O 

PASO FCIO, Ly H=LeasP Cle, 2)=10:08 (29) ="OREN 

DOOR": 0% (44) =O (29) 

1340 GOTOL20O 

1350 IFL(S-6)< -OTHENFRINT"I DONT HAVE I 
T"’:GOTOQ120 

1360 FPRINT" ABANDONING SHIF-NO CHANCE OF 
FINDING BOMB BY 9:00";GOTOL2ZO 

1370 PRINT"MY HANDS SLIFFED! I AM DRON 
ING IN THE SEA":SEND 

1380 PRINT"IT’S DARK! IT CAN’T SEE!":GOT 
O20 

1390 IFS< >+>B80ORL (2)< -O0ORL< >6THENPRINT"CAN 
T YEP" sGOTOiz0O 

1400 INFUT" TO WHAT": 46%:0%8(8)="ROFE TIED 
TO "+AG 

1410 ITFLEN (AS) -2THENAS=LEFT# (AS, 2) 

1420 TF (AG="ST"ORAGK="RA") ANDL=SANDL (2) = 
OTHENF 2= 1 

1425 Lt(2) =. 

1430 GOTOI29O 

1440 FRINT’WITH WHAT": GOSUB169O 

1450 ITFAS="FO"ORA$="F I" THENFRINT" YOU’ RE 
KIDDING": GOTOQ120 

1460 IFL(4)< 2O0ORA$S "AX" THENI490O 

1470 IFRS="DO"THENFRINT" STEEL DOOR-—"s 
1480 IFS=1SANDL (9) =LTHENITSOO 

1490 FPRINT'NOTHING HAPFENED':GOTO1L2O 
1300 LtCL7d=bL (09) 06715) ="SPLINTERS": GOTO 
120 

1210 L¢41)=0:0¢(33)="D0O0R LAYING ON FLO 
OR"sF (10, 2)=9:GOTOL20 

ISs2O FPRINT" THE TIME [S UPi i! "sFORX=iT 
2Q000sNEXTs PORE S6900, 0 

1330 FORX=1TO2OsFRINTTAR(CX) "RBROOMMM! HE 
:NEXT:sEND 

1340 IFL (10) < -OTHENFRINT"HURRY, I CANT 
SWIM" sFi=l1 

ISSO L=1BslL2e=18:GOTO1160 

1360 IFL(8) =OANDERS="WI"ANDL=9THENCA=24: 
L¢€1)=9:G0TO120 

1370 PRINT'"NOTHING HAFFENED": GOTO120 
1380 FRINT"IN WHAT": :GOSUB1I469O 

S90 IFLA SiSBORL (11)< >00RAG< >" BU" THENIGI 
s) 

1600 L¢S2)=OrF4=1:60TO0120 

1610 FRINT"I DONT THINE IT’L WORK ":GOTO 
20 

1620 PRINT"WHEW! ''O"sPRINT' THE BOMB IS 
DISARMED" 

1630 PRINTTABR(C1O) "THE TIME IS “Ti"s"T2 
1640 FORX=1TOS:FRINTTABR (CS) "CONGRATULATI 
ONS! “sNEXT 


1650 PRINT"MAYBE NEXT TIME YOU WONT CUT 

IT SO CLOSE" 

1660 IFL=STHENFRINT"NOT ALL EXITS ARE O 
BYTOUS" 

1670 IFL=1ANDL (8) =SOTHENPRINT" THERE 18 
SOMETHING HERE YOU NEED" 

1678 IFL=4THENFRINT"LOOK AROUND CAREFUL 
LLY 

1677 IFL<225ANDL<>SANDLS 21 THENPRINT "HOW 
I SHOULD I KENOW-ITS YOUR ADVENTURE 

i480 GOTOLZO 

1490 INFUTAt: IFLEN (AS) 21 THENAS=LEFTS (Ag 
ee 

i700 RETURN 

1710 FORX=1TOLEN (AS) : IFMID$ (A%, X, 1) ANDL 
EN (AS) >X+1THENBS=MIDS (AS, X41, 2) 

1720 NEXT 

i730 INFUTA: FORX=1TOLEN (A) 

1740 I[FMID$(4%,X%,1)=" “ANDLEN (AS) >X+1TH 
ENBS=MIDS (AS, X+1, 2) | 

750 NEXT: IFLEN (A) =i THENAS=LEFTS (AS, 2) 

1760 RETURN 


ADDING A DISK 


One of the mast frequent questions I 
have gotten over the last month or so 
has been “How Do I Add & Disk To My 
RASIC IN ROM System". There are a 
number of different aptions on how to da 
this. 


There are some fixed requirements far 
adding a disk. Your system must first 
Of all have 24K of RAM. OSI does sell a 
few systems with 2Ok of RAM but they do 
not really operate properly with OS6é5D 
until the extra 4K is installed. The 
second thing you've got to have is a 
Disk Drive. OSI uses the MPI Disk Drive 
and pretty well has us locked inte using 
the one from the factary. The problem 
is that we need the Data Separator Card 
which is pretty much provided only with 
the OSI machines, Virtually, all of the 
S-1/4" disk drives currently on the 
market are compatible, but yYery few of 
them have a data separator on board. 
The other thing we have to have is a 
Floppy Disk Controller Hoard. 


There are a number of different ways toa 
fill each one of these requirements. 
For instance, most of the OSI machines 
with BASIC IN ROM are capable of 
handling SF of RAM on Board. That 
leaves us 16K of RAM short. There are & 
practical ways to get the extra isk RAM. 

The first option is to buy the D & N 
Micro FProaducts Memory Boards. That has 
the advantage of also filling the need 
for a Disk Controller. The second 
poseibility is to purchase a Memory 
hoard from OHIO Scientific. 


Unfortunately, OST has anly been 
shipping the 24k RAM beards, and no 
longer oaffers the old 8 & I6E boards. 


That puts the price af the Memory up to 


about $475.00, Tt also puts you up ta 
oek RAM, but it is rather an expensive 
route ta qa. The third aption is to buy 
either 2 of 8K or 1 af the 16k RAM 
boards fram AARDVARE and populate it 
yourself, Tt*s probably the cheapest 
way to get extra memory, but it does 
require that you do the building = § and 
troubleshooting and if you have a C4 or 
C8 system iit does require that you wire 
up a long stringy cannector ta hook it 
“wp 6tG|lCUycur 6Ssystem. In any case, by one 
af those methods you need ta get a 24k 
RAM in your system. 


The other thing you need is a Flappy 
Disk cantroaller. There are 3 now 

currently available and i or 2 more that 
should be available sametime in the next 
manth ar two. The Old stand by is the 


OST 470 board. Tt*s OST*s original 


Floppy Disk Controller and has the same 


exact schematic as is currently used oan 
the SOS and the CiF boards. Tt sells 
for about #$1230,00 populated and tested. 
Tt does have the disadvantage that it is 
set up for 8" disks when it*s shipped 
from the factory and you, therefore will 
need ta purchase a data sheet from 
AARDVARK ta show you how ta change a 
couple of resistors and some of the 
timing on ait to run 3-1/4" disks. The 
second choice if you have a C2/4 system 
is to purchase the D & N Micro systems 
CM9 board either bare or populated. Tt 
has the disadvantage in that it is not 
assembled and tested with the interface 
unless you buy the full 24k system. I[t 
should come aut ta be fairly inexpensive 
if you build your own. 


The ather optian is OSI’s 610 board. 
The 619 will essentially hold 24K RAM 
and a Flappy Disk Interface. The board 
is designed for the CIF and comes with a 
Floppy Disk Interface assembled = and 
tested and 8k RAM on board for #269.900, 
You have to add another 8k RAM before 
you can actually use the board. 
Fortunately, the sockets for the RAM are 
in sq all you have to do is plug in 
more 2114% 5s, 


There are also tea other Floppy Disk 
Cantrollers ain prata right now which I 
would not wait for. Both AARDVARK here 
im the States and Looky Video in 
Australia have prototype wire wrap 
Flappy Disk Controllers running but 
neither firm has them in production and 
To wouldn*t hold my breath far them. 


None of these methods we have mentioned 
are limited to any one system. While 
the 610 board is designed primarily far 
the Ci it can be wired to the 2/4/8 
backpane and some users have used it to 
upgrade C4 machines ta Floppy Disk. The 
game thing goes for the D & N Micro 
board and the 470 board. While they are 
designed for the 48-pin buss, they can 
be wired through a cable to the 40-pin 
connector and they have been used by 
some people to add this to a CIF. 


The third thing that you*ve got to have 
is a Disk Drive. There are three 
options open for the 3-1/4" disk drive. 
The Cleveland Computer Consumer Center 
in Cleveland Ohio, which appears to be a 
unofficial OSI factory store, sells the 
bare Disk Drive with cables but without 
case or power supply for $299.00. We've 
heard a number of rumors from OST that 
that deal is about to end. If you want 
to get that one, you are going to have 
to hurry. The second possibility is to 
buy the Disk Drive from OSI. It comes 
complete with case, power supply and 
cables for $425.00, We are still 
checking out a third possibility. I 
recently found out that MPI sells Data 
Separators for their drives. According 
to MFI they sell them for $29.95. We've 


ordered one and should it work out as 
MPI promises, you can get any 
inexpensive MPI &-1/4" disk drive and 


the data separater board from MFI and be 
in business. I hope it works out. 


That then, I think, ‘covers all the 
options on disk drives except OSI’s. I 
should cover, I suppose, OQSI*s 
recammended procedure for taking a C24F 
and upgrading it to a C4 Mini Floppy. 
OSI recommends that you send the 
computer back to the factory where they 
remove the SO2 CFU Card and replace it 
with a SOB CFU Card anda S27 memory 
board. That means, in effect that all 
they save from your old system is the 
case, power supply and S40 board. You 
also lose your cassette interface when 
you do that. TIT can think of no 
conversion I would recommend less than 
that one. It probably ranks right up 
there with the all time dumb ideas of 
the decade. 


CiF SCROLLING INVERSE VIDEQ HARDWARE 
MODIFICATION 
RY LENNART LINDGARD, SWEDEN 


Many times we OST 600 board awners with 
envy have seen that more expensive 
personal computers such as FET, CRM and 
Apple have no difficulty what ¢0 ever 
making black characters on a white 
background on their moanitars. This 
trick makes important parts of the 
information to step forward and increase 
im readability. 


Sc, T asked myself, why not on my OST? 
I looked at the schematics of the 
camputer and saw that it would be rather 
simple toa implement same sart af 
invertion of the video-siqnal cut. Rut 
how was it toa be cantralled? My first 
thought was ta cover every 
SCreen-position with an extra bit, which 
was to decide whether the sign on that 
particular poasitian was to be inverted 
or not. 


What I did, was to decode two different 
ASCII -characters, ane ta turn on 
"reverse video mode", and one to turn it. 
0 a Now IT had ta dig in the hardware. 


The video unit oan most microcamputers 
has a video-memary, that for each 
pasitian on the screen cantains the 
ASCII-value of the character that is toa 
be drawn there. The video-memory sends 
out its ASCII-coded characters one at a 
time. Those characters are sent to a 
ROMs called "the character geneator”". 
The character generator converts the 
ASCII-cade to a signal which contains 
information about the physical looks of 
the character. That Signal is 
transferred to a shift-register. The 
shift-register converts the parallel 
code into a serial one, which is sent 
out towards the video-monitor. 


As I said earlier, I had to choose two 
characters out, which were to controal 
the reverse video mode. IT decided the 
signs, which disturbed the presentation 
as little as possible. That is, I chase 
the two SFACE*’s OSI provides in their 
character generatar, character nr. 32 
and character nr. 964. I chose to use 
mo, 96 to start the reverse video and 
Mir. o2 to Turn it oft. 

Binary 96 18 written as: O1100000, and 
oe 18 written as:O00100000. AS you can 
see, there is anly one bit, bit 6, that 
differs those two binary numbers. That 
made it natural to trigqg a "reverse 
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video an/aff" -flip-flap with the 
use the X (the 6th 


a a 


number: OXLOOOOO and 


bit) toa decide the value of the 
flip-flop and the reverse Video. On ar 
ao Se ry 


To be able to control the video fram the 
Q-autput of the flip-flop, t hed ta cut 
the foil between pin 9 of the U4e (the 
shift-registers) and pin 2 of the U70O, 
put in an XOR gate and control the XOR 
gate from the output of the flip-flop. 
The truth-table of the XOR gate is in 


fig. 2. 


As the @SCIIi-code is transferred to the 
character generator (U41), long before 
the character~looks-signal is loaded in 
by the multiplexer for further delivery 
to the screen, the "load character-Looks 
into multiplexer" ~gsiqnal: should also be 
added to the lagic term, that triggers 
the flip-flop. That load-siqgnal had to 
he inverted with a free XOR gate (see 
itt, 2) So Fite 


needed to trigger the 
course had to happen at 
that made it natural toa 
use am AND-gate to collect all those 
things. I did use an AND-gate, but to 
save place an the board and to save 
Ic’s, I decided to use a diod-qgate in 
discrete technique (see fig. 4). The 
gate should be built-up by 
germaniumdiodes because of their low 
voltage, O.3 volts. Alsa note that I’ve 
used 7405—-inverters instead of 7404's. 
That is because of the fact that the 
7405 gates have an 
open~-collector-output, 
to build an AND-gate by simply 
cannecting the outputs of the gates 
together with one resistor connected ta 
+5V . 


All things 
flip-flop, of 
the same time, 


got all the hardware 
information I've got to offer for this 
time. It?s only for you ta switch on 
your soldering iron, get tools, 
components and get started. But there 
is one thing, and you better read this 
carefully: when you start to modify 
your camputer in any Ways think of 
this 


Now you've 


All the warranties and insurances 
automatically cease to exist when you 
touch your computer with a soldering 
iron or a wire cutter. The company you 
bought the computer from has no reason 
for wanting to fix all the buaqs you 
made when you fixed that great new 


hardware-mad. 


which allows you 


If you are naturally handy with 
electronic things, this one shouldn't he 
very difficult. but don’t say I didn*t 
warn yOu. 


Ok . That’s about hardware. Now toa the 
soft part of it all: The pragramming of 
your mew reverse video madifticatian. 


When you're programming this mod, all 
you have ta do ta turn on the reverse 
Video is to type "PCHR#(96)3". The 
reverse video is automatically turned to 
normal again when it hits a SFACE. You 
can avaid the spaces by replacing them 
with dots: 


co 10 ?'"NORMAL VIDEO"CHRS (96) "INV. 
VIDEO OFF 

You can also replace the spaces with 
Weare Sree 


Ex . 19 "NORMAL VIDEO" 
CHR (96) "INV"CHRS (96) "VIDEO OFF" 


NEW BOARDS AVATLABLE FOR OSI 


For several months mow we've been 
hearing about a new company called D & N 
MICRQ FRODUCTS, INC. They*re located at 
3634 N. Wells St. in Fort Wayne Indiana 
(Phone # 219-485-6414). 


We've mow talked to the oD &® N people, 
seen their catalag, and talked ta a 
number of people who are using their 
praducts. The news has unifarmally been 
good, and people who have gotten their 
praducts have been very pleased with 
them. | 


D& ON Mico Products manufactures a 
number of boards for the OSI 48-pin 
buss. It means that all their boards 
are designed primarily ta go an the 
C2/4/8 machines. 


There are a number of boards which 
really wouldn*’t be of much use to a 
hobbiest or small business user, such as 
their Centronics Interface and RS232 
boards. They do have a couple of 
boards, however, which are somewhat 
unique and which loak ta be extremely 
handy for the small user. The mast 
interesting of these, would be what they 
call the EMEM-CM9 Memory Card. Tt*s 
basically a 527 board replacement. It 
cames either bare as the BMEM card or 
with kK, 16k or 24K of Memory on it. 
The prices range from $50.00 bare toa 
$280.00 for a 24h board. The thing 
which makes it unique, however, is that 
it also contains a Floppy-Disk 


Interface. It’s the only way I know of 
currently to buy a bare memary board and 
Floppy-Disk Interface for OSI equipment. 

It comes populated with 24k in memory 
and the Floppy Disk Controller far 
er a ae 


We have had ai number of customers naw 
who have purchased these bare boards and 
they have had no particular trouble in 
getting them functianal. mb & MM fMicre 
recently sent us a& sample copy af the 
instructions that come with the Mem 9° 
board and they appear tao be extremely 
Clear and easy ta follow. You get a 1S 
page instruction manual including 
step-by-step instructions on haw to 
restrap the ROMs and set the system up 
for either 3-1/4 or 8" Floppy’s. D& N 
also makes a number of oather boards and 
their catalog is certainly worth 
getting. They have, for instance, a 
prototype board for $33.00, OSI is 
suppased to have one of these, but I 
have yet to see them ever ship one. 
They alsa sell the 8-slot Rackpanes, for 
the 48—-pin buss, Parallel Frinter 
Interfaces, Serial Interfaces, a number 
of different memary boards aside from 
the MEM-CM9, a Diablo Farallel Frinter 
Interface and miscellaneous equipment. 


Im talking ta the management at D& N, I 
found aut that they have heen in and out 
af the direct mail business over the 
last several months. They beqain by 
advertising in a number of magazines and 
then found that the dealer business toak 
up their entire production. They are 
now once again im the direct mail and 
retail business and seem to be planning 
an staying in that business now that 
their production can handle the 
increased demand. 


Mr. Cass has upgraded the Word 
Frocessar from last year and added same 
features ta take advantage of the 
capabilities of the CIiE/C2E ROM. I added 
the routine at 1400 to allow editing of 
individual lines without retyping. That 
routine can be used with any ROM. 

MINI WORD FROCESSOR 
RY J.L. CASS, NORTHRIDGE CALIFORNIA 


19 REM MINI WORD FROCESSOR 

20 REM BY James L. Cass 1981 

20 FRINT CHR (24) TAR(19) "LINE 
EDITOR’ sFPRINT 

4QO PRINT"AFTER EXITING, RESTART FROGRAM 
BY “UT? TOO’ 

YO PRINT'OFTIONAL FOR FRINTing:s M=LEFT 
MARGIN, F=O NO FAGING, 

60 PRINT"F=1 FOR V (=54) LINE FAGES, mie 
NUMBERS FAGES. ":FPRINT 


7O PRINT"USE NO QUOTES ("CHRS(34)") IN 
COPY FOR TAFING 

BO FRINTSFPRINT'CALL COMMANDS WITH* /* 3) /H 
Ge fH POR. HEL. 

90 PRINT: T=600:DIM 

AS(T) sL=1:V=S54:M=o:R$="" 

190 PRINT Lis INFUT AS:REM WARM START 
WITH “GOTO 100° 

1190 TF AS=""THEN ABSCLO=S=""sLst+1sGOTO 
109 

120 IF ASC (AHI2247 THEN 

AS(L) =ASsL=L+1:GOTO 100 

130 A=ASC (MIDS (AS, 2,1)) 

140 IF A=67 OR A= 99 THEN 3190: CLEAR 
SCREEN 


180 IF A=72 OR A=104 THEN 400:HELF 
160 IF A=846 OR A=-118 THEN So0O0:VERIFY 
170 IF 4=70 OR A=102 THEN S20:FIND 
180 IF 4=65 OR A= 97 THEN 540: ADVANCE 
190 IF 6=68 OR A=100 THEN 600:DELETE 
200 IF A=73 OR 4-105 THEN 7OOs INSERT 
210 IF 4=85 OR A=117 THEN 7460: UNSAVE 
220 IF @=@R% OR A=115 THEN 800:SAVE 
230 IF A=82 OF A@=114 THEN 85o0:REFPLACE 
240 IF A=75 OR A=108 THEN 900:LIST 
250 IF @=78 OR A=110 THEN 980: NUMBERED 
LIST 


260 IF A=80 OR A=112 THEN 1000:FRINT 
270 IF A=@7 OR A=119 THEN 1200: WRITE 
TAFE 

280 IF A=84 OR A=116 THEN 1300: TAFE 
INPUT 

285 IFA=680RA=100THENI400:REM EDIT A 
LINE 

S00 GOTO 1090 

310 PRINT CHR#(26):GOTO 100:CLEAR 

490 PRINT'/LTR OR /LTR IS 
COMMAND. ": PRINT 

410 PRINT"/H HELP /F FIND /A ADVANCE 
420 PRINT"/L LIST /N NUMBERED LIST /F 
PRINT 

430 PRINT"/C CLEAR SCREEN /T TAFE INFUT 
/W WRITE TAFE 

440 PRINT"/I INSERT /D DELETE /R 
REFLACE 

450 PRINT"/S SAVE /U UNSAVE /V VERIFY 
460 PRINT"/E EDIT A LINE": FRINT 

470 PRINT"START WITH QUOTE (CHRS(34)") 
IF LINE STARTS 

480 PRINT"WITH SPACE OR CONTAINS ANY 
COMMAS OR COLONS. 
490 PRINT:GOTO 100 

S00 PRINT @; AS(Q):GOTO 100: VERIFY 

S20 INPUT"#":Q:GOTOQ S0O:FIND 
S40 INPUT"#":RiIF @+R2T THEN 100 

S50 IF Q+R<1 THEN @=1:GOTO 500 
S460 Q=0+R:GOTO 500 
600 INFUT"DELETE":X:IF X2L THEN 100 
610 PRINT A®(X)SINPUT"O.K."sA¢2 IF 
ASC (A$) <289 THEN 100 

620 L=L-1:FOR Y=X TO 
LrA®(Y)=AS(Y+1):NEXT:GOTO 100 
700 F=O:REM INSERT 

710 INPUT"AFTER LINE":X:IF X2L THEN 100 
20 IF F=O THEN INFUT Ag:IF AS="NO" THEN 
1O0 
730 L=L+i:FOR Y=L TO X+2 
STEP 12 A$ (Y) =A$(Y-1) :NEXT 
740 AB(X+1)=AG2GATO 100 
760 F=1:A$=B¢:GOTO 710:REM UNSAVE 


ROO INFUT"SAVE LINE"sRsIF ReT THEN 100 
810 B=AH(R) GOTO 100 
850 INFUT"REPLACE LINE"sR:iIF RT THEN 
10O0) 
860 FRINT Agi (R):INFUT At 
870 A(R) =A$:GOTQ 100 
900 FeO:REM LIST 
910 INFUT"START LINE (A FOR 
ALL)": @ts A=ASC (AB) 
20 IF A@=65 OR A4=97 THEN X=1:Y=L—-1:PRINT 
CHR (26) :GOTO 940 
O80 K=VAL (AS) sINFUT"TO LINE": Y 
940 FOR I=X TQ YsIF Fei THEN PRINT I; 
950 PRINT AS (1) ENEXTSFPRINT: GOTO 100 
980 Fei:GOTOQ 910O:NUMBERED LIST 
1900 PRINT CHR#(26):REM PRINT 
1910 POKE Si7,1 
1020 FOR [=1 TO 6:PRINT:IF I=2 AND F=2 
THEN FPRINT"FPAGE 1": t=3 
1OR0 NEXT:R=2:FOR IT=1 TO L-i:FRINT 
SPC(M+1) ASCT) 
1040 IF I/V¥eeINTCI/¥) OR PO THEN 1090 
1O50 FOR X=1 TO 7:PRINT:NEXT 
1060 IF F=1 THEN PRINT 
1070 IF F=2 THEN PRINT"FAGE"F 
1O8O ReR+isFOR X=1 TO 4: PRINT: NEXT 
1090 NEXT:FOR X=1 TO 8:PRINT:NEXT:FOKE 
S1i7,0:G0TO 100 
200 FPRINT"START TAFE AND HIT <SHIFT> 
WHEN READY. 
1210 FOKE 57088,1:WAIT 57088,6 
1220 PORE 5Si7,1:sFOR X=1 TO L-1 
1230 PRINT CHRS (34) A(X) 
1240 NEXTSFPRINT'AK":POKE 517,0:GOTO 100 
1300 PRINT'START TAPE AND HIT <SHIFT? 
WHEN READY. 
1310 POKE 57088,1:WAIT 57088,64 
B20 FORE SiS, 255 
1330 INFUT At: IF At="KX" THEN 1350 
1340 AS(L)=A$sL=L+1:GOTO 1330 
1350 FORE 5i5,0:GOTO 100 
L400INFUT"EDIT WHAT 
LINE" sEs IFE*LTHENLOO 
14107 A$ (E) s INPUT" CHANGE": C%: IFC$="N"THENLOO 


L4201TNFUT" TO 
"sNWS:s AS=AS CE) sFORY=1 TOLEN (AS) -LEN(CS) +1 


1430 1F MIDS (AS, Y,LEN(C8) ) =CSTHENI450 
1440NEXTY:?"NOT FOUND": GOTO100 
1450A8(E) =MIDS (AS, 1, Y-1) +NWS+ MIDS 
(AS, YtLEN(CH)) = GOTOLOO 

1999 END 


IMPROVING RANDOM ACCESS FILES ON 65D 
RY DAVE FOMFEA 


IT have two programs, the first is a 

patch for disk random files (LUN #6), 
the second program will put a volumn # 
and title on your disks (hide it in the 
unused space at the end of sector #4 on 
track 12) 


daa J 


There is a flaw in the code that Ot 
uses to access random files. Every time 
you db & GET,N OS65D caltuidtes , the 
track to find that record an and then 
proceeds to read that track, even if, 
that save track is already in memory. 
Reamember that using 128 byte records, 16 
records will fit om each track. That 
means that if your program is searching 
the file for a record it will be verrrry 
slaw. The patch fixes this. If the 
track is already in memory, it skips 
the disk read. 


To use the patch program, include it. at 
the start of your program and put your 
file mame ain the OFEN stmt. The patch 
grabs some memary at the top of RAM, 
FOKEs in the mew code, and FOFES in a 
jump to it after the OPEN statement. 


Also, the commands QFEN, CLOSE, GET & 

FUT don’t have ta be spelled in full, 
all you need is the first letter, DOS 
skips the rest up to the comma. 


"S§ FROGRAM TO CREATE VOL# & NAME ON 
DISKS" 


~ REM FGM NAME TS VOL.CR 
7 REM by Dave Fompea for Aardvark 


Journal 
100 REM CREATES VOLUMN AND NAME OF DISK 
iZOoO REM 


1320 PRINT: PRINT:PRINT'VOLUMN & DISK 
NAME" SPRINT 

140 INPUT"ENTER VOLUMN # (1-253) "sVN 
150 FPRINT:PRINT'ENTER NAME OF DISK" 
160 INFUT DNS 

170 IFLEN (CDN) 1 STHEN FRINT" *MUST BE 
LESS THAN 14":sFRINT: GOTOLSO 

180 DN@=CHR (YN) +DNS 

190 IFLEN(CDN®) 2146 THEN DNS=DNS+" 

see RPE ee 

i9S REM Get overlay #4 

200 DISE"CA 2E79=12,4" 

220 FORT=1TO1LS 

225 REM FORE Vol # & Name to free space 
230 PORELSLISS+1, ASC ( MIDS (DNS, 1,1)) 
240 NEXT 

245 REM Fut back om Disk 

250 DISK! "SA 12,4=2E79/1 

260 FRINTIF RINT" XEOQI VTOQC": PRINT 

270 END 

ADD THESE LINES TO YOUR DIRECTORY FPRINT 
FGM. (DIR OR BREXEC) : 


140 DV=2:PRINT:PRINT 

141 DISK!"CA 2E79=12,4 | 

142 YN=PEEK (12156): IFVN=OTHENISO 

145 PRINTIFRINT'VOL. #"s Ng 

144 FORI=12137TO12152 : 
PRINTCHRS (PEEK (I) )s2 NEXT: PRINT: PRINT 
180 REM GOTO HERE IF NO VOL # & NAME ON 
DISK 


10 3: FIX FOR RANDOM FILES ¢#6) 

2 

=O 9 BY D. FOMFES 

40°) 

“0 9 COPYRIGHT 1981 

0) ‘ 

LOO Sood ¥ = $ROO0 

120 8000 AD2O23 LDA $2520 :s TRACK 
IN MEMORY : 
130 @ooR8 8pi7ao STA TR, MEM 

140 8004 BOCAPE JSR $2ECA sFIND 
TRACK BY RECORD # 

LS0O 8009 ADL7aO LDA TR. MEM 

SY SOO0C COSD23 CMF $232C s NEW 
TRACK | 
170 BOOF FOOS BEQ SEIF +» SAME 
AS OLD 
180 8011 2o68729 JSR $2967 sDISk 
READ . 

190 8014 4CBES? SkIF UMF $2286 
a RETURN 


CVC) 


BOL7 Ooo TR.AMEM.. BYTE © 


~110 02,02 


10 REM FGM NAME IS RE. FIX 

20 REM 

SO REM BY DAVE FOMPEA 

40 REM 

SO REM FATCH SO THAT GETS FROM FILE #6 
DON’T READ DISK EVERY TIME. 

60 REM ONLY WHEN NEW TRACK 

70 REM 

90 REM GET SFACE AT TOF OF MEMORY FOR 
FATCH 


Loo 
110 
120 
Leo 
120 
oo 
140 
2OO 
135 
140 
200 


21oO 


&% STORES AT #2679 


Fon on Ye 
oan 

ae 
wank) 


RA=FEER (133) 

PORE LSS, BA~1 

REM GET CODE & FORE IT IN 
FORT=0TO23 

READC: IFC=31THENC=BA 
PORERAK2S6+1I,C 

NEXT: CLEAR 

DISEOPEN, 4, "Your File name hera 
POKEBAK25441,C 

NEXT: CLEAR 

DISKOPEN,46,"Your File name here" 
REM OFEN GETS SECTOR 4 FROM TRACK 12 
(DIR BUFFER 

REM 


REM GET CODE ADDRESS (BA ZEROED WITH 


“CLEAR ) 


DAC 
2455 
DEC) 
240) 
270 
OC) 
46,1 


210 DATASS, 240, Ogee, LOS, 


BA=PEEK (133) +4 
REM POKE IN JMP TO FATCH 
FORE L196, 76 
FOKEL1967,0 
FOKE11969, BA 
DATA173,44,35,141,23 31,352,202, 
73,235,351, 205,44 
41,76,142, 34,0 
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MEMORY RELOCATOR 
RY CHARLES A. STEWART 


Since I purchased the EFROM Burner From 
AARDVARE I have been toying with the 
idea of placing many routines I utilize 


an EFROM, because with a cassette based 
system the OSI ASSEMBLER EDITOR would he 


Yvery convient ta use aif it could be 
bhoated in fram FROM instead of the & 
minute load fram tape. 

The major problem with these machine 


language programs is they start load in 
page 2 and in the case of the assembler 
rum thru @1.296. If the program resides 
in the norm basic workspace as the 
assembler and AARDVARK CHESS FROGRAM do 
the task connot be dane in Basic. After 
same trial and error I developed a short 
pragram which will move any program — 
MACHINE LANGUAGE OR EVEN BASIC ta any 
location in RAM in a twinkling of an 
eye. The routine is short and simple 
enacugh toa enter inte the manitar when 
You require it buy may of course be 
saved on tape. 


Listing 1 is a simple Rasic program 
which may be used ta relocate programs 
inta RAM from addresses above page 3 and 
of course Rasic and Monitor Roms. The 
routine is very slow in comparison to 
the equivilent machine language routine. 

IT utilize a move from Monitor Rom to 
$2000 in this example. 


LISTING “4 


10 Z=O:FORX=63488 TO 65535 =: 
Y=FPEER (X) 
2) PUREZVSRI92, ¥ § 


Z=Z+1 3 NEXT 


Machine language routines —- May be used 
for any memory locations and is 
relocatable by changing the incrument 
page address to ie alias to the proper 
location. 


"LIST ing 2" 


19o oOoog 
Eee 

20 OOOO sBY CHARLES A. STEWART 
60 O000 prey 

7O OOOO MON=$F EOC 

BO OoOag FROM=$1F 06 


;MEMORY RELOCATOR VER 


90 OOOO TO=$1F 09 

190 Oooo : 

110 1FOO #=$L FOO 

120 I1FOO AD08 LDY #$08 s;LOAD WITH 


NUMBER OF PAGES TO RELOCATE 98=2k 

130 IFO2 A2OO LOOFL LDX ##00 

1440 1F04 BDOOFS LOOF2 LDA #F80O0O, X 
;START ADDRESS OF FROG TO RELOCATE 


180 1FO7 900020 STA $2000,x% ;LOCATION 
To FUT TO 

160 1FOA ES INX 

170 1FOR DOF? BNE LOOFS 

180 1FOD EEO61F INC FROM 

190 1F10 EEOSIF INC TO 

200 1FLS 88 DEY 

210 1F14 DOEC ENE LOOPY 

220 1F16 4COCFE UMF MON .A2 


The machine language equivalent seems 
longer and more complicated but just try 
running both. The Easic PEEK and FPOKE 
routine requires 27 sec ta run, the 
machine language equivalent runs sa fast 
that you might not even know it ran so l 
jumped to the manitar at $FEOQC to 
indicate that the routine has completed 
its task, mun time is under i second! 


I have utilized this method to relocate 
the OSI ASSEMBLER/ZEDITOR and AARDVARE. 
CHESS FROGRAM and burned to EFROM. i 
have also disassembled them both to 
learn how they operate. 


1Oo | 6©OoODO 
EF ROM 
sO) OOOO 
50 OOOO 
7O OOOO 
B80 1IFSO 
SO AFBOQ ABQO CONT LDX #eOO 
190 LFRBS AYDO HERE LDA ##O0 
110 iF 34 8bDO2SF2 STA $F202 

120 FBZ AVOO THIS LDA #400 
iSO LF3ay CVOe CMF #900 

140 IF 3B DOOS BNE HERE? 

i480 iF BD 4CSAIF JMF END 

160 1F40 SDOIF2 HERES STA F201 
170 1iF435 ADOFS2 LDA $F203 

180 1F46 99peaono0Q0 STORE STA 
#OOOO, Xs ADDRESS TO FUT TO 

190 1F49 EFESSIF INC HERE+1 

200 1IF4C E@ INX 

210 IF4D DOES BNE HERE 

220 iF 4F EE481iF INC STORE+2 
2=O TF 52 EESQIF INC THIS+! 

S40 IFSS AGOO LDA #BOO 

250 1F57 4CS01F JMF CONT 

260 IF 5A 4COCFE END JMP #FEOC 


-FROGRAM TO READ FROM 


BY CHARLES A. STEWART 


RZ ‘SS “RB 


K=K TF SO 


The article below should be the final 
word {IT hope) on how ta interface the 
Quick Frinter II. - No more software 
patches - No more weird FOFKESs. 


MR. FR. WRAIGHT, HANTS, ENGLAND 


The enclosed hardware modification will 
mate a Q“uick Printer IT an a Superboard 
without any saftware patch. AS 
mnentianed in previous Journals FOREIng 
in loads of nulls etc. works, but as the 
printer does not like mulls you 
Sometimes get spuriaus characters 
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printed at the beginning of the line. 
The Mod is as follaws:s-an the back of 
the printer there are two edge 
cannectars intended far Radia Schack 
computers oan one of these there is a 
signal called "Line". This signal is 
narmally high, but goes low everytime 
print head is to move or moving. We can 
use this ta cantrol the C.T7.5. line an 
the ACIA assuming you've already fully 
populated your RoSSS IN and QUT. The new 
C.7.5. line from the printer should gata 
JS pin 3 C(RSSS2 ind. The CTS2 can now be 
picked up at JS pin 10 (CTS2 We mow 
only need ta link CTS2S to the ACTA pin 
24, This i168 @asily accomplished as then 
a line pad (WS) just by the ACTA. alk 
the track as shown an sketch and connect 
CYS2 toa pad shown. This completes the 
Mod ta the Superboard. For the mare 
ambitious it is possible (two of the 
Screws are under the rubber feet) watch 
out for the led. The new CTS can be 
wired ta the Din plug internally by 
tracing the shown edge cannectar track 
back ta a plated thr*a hale and 
soldering a wire to this and then take 
ather end af wire to an unused pin of 
the Din plug. Then all connections fram 
printer are still cantained in ane 
cable. The only restriction to abave 
saftware is that the terminal width 
should be restricted ta 3] ad.e. FOKE 
es The reason far using the RS222 
in for CTS is ta ensure that no spurious 
voltages etc. can get into Superboard 
fram the printer. I Rope the above 
information is of same use to athers. 


VIEWIOF 2 Lookin 
FROM PolmT'x! 


CREAR - QP IL) 


Jt 


0 
; o . | 
N @ ares 
Et CTS <SiGWA 
(Qi ht AVAILABLE HERE 


$ALSO Follow TO LATED 
“fs RS232 IN JSR, PINS \eUPER BOAEE 


UIs 
ALIA 
COMWECLT WIRE (FROM 


SIS FW 10SUPERLOALD 
HERE CCTSZ2) , 


CuT TRACE HEE 


LETIERG, Litlehkh, AND MURE LETTERS 


LEON DAUGHERTY, RANCHO FALOS VERDES, 


CALIFORNIA 


T wrote you last week about my 
disappointment that the CES ROM would 
nat load WRé6SO. You might be 
interested in how I have temporarily 


prablem. You might want to 
include the foallawing as a suqgested 
alternative way of installing the 
CEGMON for anyone who is using WR6SO2., 


solved this 


Follow the printed instructions 
except for the follawing. After removing 
the three jumpers at U1S install a 14 
pim DIF socket at UiSs. Connect the 
wires fram the 741534 pins 9? thru 11,13, 
and 13 thru 1? to a i4 pin DIF plug in 
accordance with the sequence in the 
printed instructions. The wires should 
be long enough ta allow easy insertion 
and removal of the plug in the socket at 
hd he Qn a second 14 pin DIF plug 
cannect jumpers from pin 1 to pin 12, 
pin 2 tO pin if, and pin } te pan 10. 


Remave the jumpers ar cut the foil 
at W4 and WS. Cut two 2" lengths of 
wire. Strip ane end of each 1/8" and 
the ather end 174", Using the 1/8" 
stripped ends solder a wire to the 
center hole at both W4 and WE. T used a 
#58 drill to clean the solder aut. 


Ohtein a screw terminal tip for printed 
circuit for printed circuit boards with 
a .2£00" center spacing. Toused and OF 


Machine and Tool, Noa. TS-8. l cut thru 
the terminal strip at terminals 3 and 64. 
This provided two 2 screw terminal 
strips with approximately the spacing of 
the jumper holes at W4 and WS. With 
slight bending of the solder pins to fit 
the spacing of the holes yau can solder 
one of these strips at W4 and the other 


at WS. When soldering these be sure 
the solder flows on both sides of the 
PCH. 


Remove the Monitor ROM and set it 


aside. Carefully unsolder and remove 
the monitor socket US. Install a Zero 
Insertion Force Socket at US. TI found 


move one bypass 
back side of the board 
this socket. One 


it necessary toa 
capacitor to the 
to provide roam for 


ather had ta be moved and soldered to 
the ground foil instead of the hole it 
was in. 

This coampletes the changes in the 


installation proceedure. You now have a 
wOe board that can be easily converted 
from the SYNMON to CEGMON and back as 
needed. For SYNMON insert the wires at 
W4 and WS in the leftmost terminals amd 
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Insert the plug with 
install the 
naw in 


tighten the screws. 
the jumpers at U1lS and 
SYNMON ROM at US. You are 
business for using WF6SO?. 


For CEGMON move the wires at W4 and 
WS ta the right side, remove the plug 
with the jumpers from US and insert the 


plug with the wires from the 741354. 
Remave the SYNMON and install CEGMON. 
All the conveniences of CEGMON are now 


available. 


This 28 an inconvenient changeover 
because it does require remaving the 
bottem cover each time, but since there 
is nao soldering and the Zero Insertion 
Farce Sacket makes changing the ROM easy 
and safe, it anly takes a few minutes to 
make the change. 


JAMES C. SCHMOOCE, SAN JOSE, CALIFORNIA 


Here is line which was missing fram the 
SLASHBALL program in the April 1?°si 
JOURNAL. This line allows the program 


to run on the Ci. Without it the ball 
gets served off the screen. 
166 IFVBR=4600THENFN= 
INT (34148+244RND(8)) 3s MF=L 
The JOURNAL is great - keep it LUD 


Request - how about some discussion af 
how to make Machine Cade programs run 

with the CiS ROM. Specifically how to 
use info in the C1iS instructions like 

getting "E-~Z LISTER" and other published 
programs toa run. 


LESTER CAIN, 


Did you know it is possible to load 
Assembly source code into BASIC 
workspace and vice versa? By using the 
Indirect File function one can dump 
either Source into the others work area. 

Qne passible use for Basic in Assembly 
would be to delete blocks of lines, but 
care must be taken as long lines will be 
shortened. 

Ry putting Assembly source into 


Rasic a person can edit the file with 
Aardvarks’ Editor or renumber it with 
different values other than what is 


with the Assembler. There is 
here also in that the first 
are removed and won’t look as 


available 
a hazard 
Spaces 
neat. 

While on the subject, can anyone 
tell me where the values for the 
Assembler*s resequence are located? it 
is a hassle to use line 19 as a starting 
place all the time. T have written my 
Own resequence routine ta do this but 
then it has ta be assembled also and 
takes more time. Any infoermatian on 
this would be appreciated. 


VY 


PETER BUTTERFIELD, PALO ALTO, 


CALIFORNIA 

Thank you for your jletter af April 27th, 
responding to my questions about the 
assembler on the OSI game disk. Your 


statement that it was for a C4F provided 
the info TI needed to make it work. I 
simply patched the Assembler’s keyboard 
roautine as shown below, to complement 
the characters stored and read at DFOO, 
and mow it works fine! Thank you! 


Regarding reading disks at 2MHZ: When I 
made the change, I tapped the clocking 
signal at the next lower frequency (the 
clocking signal for the disk circuit, 


that is), s0 that the data rate to and 
from the disk remained as before. So 
far it has worked with no problems. 


2QO1547 

ASSEMBLER AS SUFFLIED ON GAME DISK 
1547 ADOOFC LDA S$FCOO 
is4A 4A LSR A 
1S48 SO0D RCC #1554 
145D BOOFF2S4 JSR $24FF 
1S50 4903 E0OR #$03 
1352 DOED BNE $1541 
ISS4 BD2525 STA $2325 
ISS7 4COO0O02 IMF #0200 
ISSA 206015 JSR $1560 
ISSD 4CS01S JUMP #1550 
1360 AVE] LDA #$E1 
1362 206D1i5 JSR #1546) 
1365 S008 BVC $156C 
1267 4A LSR A 
i368 4A LSR A 
i369 4A LSR A 
Im6A 9OFS RCC $1562 
iSé6éC 460 RTS 

1S6D 8DOODF STA SDFOO 
IS70 2COODF BIT #DFOO 
iS73 60 RTS 

13574 O00 ARK 

S75 OO BIE. 


(OO THROUGH 14FF) 


CORRECTIONS FOR CiFMF: 


i347 AD LDA $FO00 
1S6D JMP $1575 
1S70 20 BRIT $1574 
1S73 60 RTS 

1374 OO BRE, 

1375 PHA 

1576 EQOR #FF 
1378 STA $DFOO 
1S7B LDA #DFOO 
he #3 EOR #FF 
1380 STA $1574 
1583 PLA 

i384 JMP $1570 
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CHUCE SCHALL,. 


After reading in 
Journal that the new Superboard provided 
a three second delay oan reset, 
ta try 
modification to 
method that 
dual 4 bit 
siqnal 
7404 
delay of 
before 
C14 input to either Cis 
delay 
four seconds 
bonus is that this circuit alsa provides 
power On reset. 


DONALD FR. BRENNAN, NORTHRORO 
MASSACHUSETTES 


"10 CENT BREAK KEY MOD" 

This mod will eliminate accidental Hreak 
Key operation. A 3/8" IDX 1/4" H 
rubber grommet is used to insure a 
moderate pressure is required to operate 
the Break Key. 


Gently pry up the Break 
your fingers. Then 
portian of the grommet 


Key Cap using 
cut of ¢ the lower 
as shawn. 


Place the top portion of the grommet 


Over the Break Key Switch Top with the 
large end down. Now gently install the 
Break Key Cap. Fower up and notice 
Break Key must be pushed firmly to 


aperate and na more accidental Break 
aperatians will occur. 


Key 


CUT 


WEST HAVEN CONNECTICUT 


the April AARDVARE 
I decided 
implement a similar 
my. Gis The easiest 
T found was to use a 743595 
counter driven by the 120 Hz 
AlSGO required was a spare 
This circuit provides a 
two seconds 
Ry changing 
or Cis the 
second ar 
An added 


ane 


C1i4. 
inverter. 
approximately 
reset accurs. the 
be changed to one 

respectively. 


Car 


UG/ 
PIN 12 CC 14) 


DON 


Cancerning the 
RUFFER 
Hardvark 
it would be advisable to point out 


CHANGE DISK 
Walkenharst 


So Bo 


VANSYCEEL . 


in 


article 
LOCATIONS" 
Journal 


to your readers that the end 


pointer 
changed. 
will 


Weer £5 £4 a 


which 


RASIC 
Otherwise, 
over write BASIC strings 
This may be dane by: 


Uses 


MIDDLEBURY, VERMONT 


"HOW 
by Tim 


TO 


Woe ey 


of RAM 


must 


disk 


ancl 


LD PORE E960, FER Ca7o07—-1S 


VOPURESTOO, PEER (asG07 +1 a6 END 


Note, 


The 
directly. 


becond, 
the #6 buffer 


they 


huffer START 


does rot 


Obvious that 


address 


fairly common trick 
USER" S MANUAL FRELIMINARY COFY 
With this in mind, 


Vou G 


UCTOBER 21978, 


be 
buf # er 


Y1Sse 


if buffer # 7 is used the 13 
in the @xanple above must be 


FOKEdM value 


if the current 


ey « 


may alsa he 


dane 


Values 


oF 


END LO &® HI are examined 
are faund to be same as #7 
LA) @ Fils Since #6 buffer 
weite iin #7 buffer it is 
the END LO & HI the 
the end of the buffer +1, a 
for Upi (REF. US—-eon 


The BASIC end of RAM pointer may 


now be modified by: 


10 PORES9SO, PEEK (8960) <12 


oF PORERIY6O, PEER (e960) +12 


Note, if buffer #7 is used the 12 


in the @xample above must be 24 


In addition it should be noted alsa 


that B inch disk uses SE (12 page) 
buffers and the values in the tables 
should be adjusted accardingly. 

(7 Rhaven*t had time to look for the 
page count which will allow the use af 
is page buffer. Fossibly someane else 


has investigated this. 


EERRY LOURASH, DECATUR, 


I would like 
line 
The last data Glement should be 162, 


ron a 


LLIN IS 


to point out an error in 
C2PF BASIC Load pragram. 
not 


20 of the 


[°d also like to remind you of the error 


the table locks out one byte af RAM more 
than the disk buffers require. This ane 
byte actually casts a whole page (2564 


im the E.2. Lister program. Locatian 
O2L350 in the program should contain 9A, 
not 94, 


Yau said you wanted to know how people 
liked the Journal’*s new format: I’m easy 
to please - as long as the listings are 
legible I*m satisfied. I hope more 
people are renewing their 
subscriptians., 


CURRENT 
Late Se 


bytes) since RASIC*s end of RAM pointer 
is oanly page specified. A solution ta 
this is to add i to the addresses given 
in the table in the article making 
thems 
TABLE OF VALUES FOR CHANGING DISK RUFFER 
LOCATIONS (3--1/4" DISE) 
#& BRUFFER 
FUNCTION ADDRESS oak. 4K 
START LO 17190 $432 O $OO QO $O0O 
START HI 17191 $4327 Leth S720 is - hoo 
END LO 17192 $4328 O $00 0 $00 
END HI 17193 $4329 12g $20 S& ao 
INFUT LO 17324 $43AC QO $OO Q $00 
INPUT HI 17325 $43AD 120 #78 88 #59 
BDOTRPUT LO 17347 $43C3 O $00 O $00 
OUTPUT HI 17348 #43C4 i2O $78 88 $38 
#7 BRUFFER 
FUNCT TON ADDRESS we 24k 
START LQ 17198 $4326 O $OO O $OO 
START HI L7i99 S432 ita $70 Go S50 
END LO 17200 $4330 O #OO OM $OO 
END HI 17201 #4331 120 S76 8S Sie 
INFUT LO 17405 $43FD QO $00 O $OO 
INPUT HL 17406 $43FeE 112 £70 80 $50 
QUTFUT LO 17420 $4416 © $OO O $00 
OUTFUT HI 17431 #4417 1i2 #70 80 $30 


EO) 
i126 
pat oe 
126 
ae 
126 


a 


$32 
ost 
$3A 
$7E 
$32 
$7E 


$32 


CURRENT 


126 
att 
126 
66 
L2G 
WHS 
eo 


wi 
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$7E 
$30 
$7E 
$42 
$7E 
$A 
$7E 
$A 


ALRERT J. McCANMN JF, LITCHFIELD (PARE, 
AFT ZONA 
A short review af Mittendorf 


Enqineering’s Hi-Res Graphics Board and 
ather related thoughts. 


Mittendorf*s High 
Board up and 


I finally have 
Resalutian Graphics 
PUP LIng . IT bought the bare board 
yversian and scrounged up the parts I 
needed quickly and cheaply, except for 
the 40 pin jumper. 

Ta connect the Hi-Res board you 
need the 40 pin jumper and a 16 pin 
JUMpPer . The 40 pin jumper is the 
expansion buss and the 16 pin jumper 
brings in the needed timing signals. My 
Video an the CiF refused ta operate 
correctly because the 16 pin jumper 
acted like a 16 pin capacitor. I had to 
separate the wires of the jumper to cure 
this. 

One other problem 
the 8T238 chips that drive the 
an the 40 pin @xpansion buss. 
Mittendorf suggested remaving them and 
putting jumper wires in the sackets to 
cure this. DO to DO etc. This fixed all 
problems. 

The assembly manual was pretty goad 
and =I made no wiring or soldering 
errors . 

The day before TI installed my 
Hi-Res board, I received fram Mittendort 
Eng., same software far the board. it 
would not operate correctly with the 
Aardvark Cis ROM. T built a monitor ROM 
switch which I will explain later. 
FEEKing and FOKEIng Hi-Res memory 
worked QE with the CiS FROM. The 
Mittendoarf software is a M.L. patch 
which adds new commands: LOAD CLEAR - 
CLEAR HI-RES MEMORY, LOAD NEW —- OLD LOAD 


T had was with 
data bus 


COMMAND, LOAD X,Y, 1 OR 9 ~- A FLOT X,Y, 
1 OR © command with 1 lighting the dot 
and © turning it off. 


A sample 3D program is included 
which gives fantastic graphics. [t takes 
about S-7 minutes ta build this 
display. 

With the plot 
origin is the lower left 
230,200 the upper right. 

Tt is very easy ta da 2D plots with 
this also. 

The video of the Hi-Res board is 
combined with the CiF video soa that the 
two qraphics types can be used 
simultaneously. The CiF video can 
supply the numbers and base line and the 
Hi-Res video the plot. Hmmm! Scenery 
for an Adventure game! 

Back to the C1iS ROM problem. The 
plat routine uses the [/0 in the old ROM 
and I haven*t changed the jumps yet, soa 
I made this simple adapter that switches 
between the CiF ROM and the CiS ROM: 


routine the 0,0 
corner, and 


Lf 


Ui6, Pind) 4. 
UIB, Pim3 C)P 


W4 on 


Wire all the pins in parallel with 


each ROM except for Fins 18 and 20. 
Roath phase 2 clocks are at Wé. Switch 
shown in Gold CiF ROM position. 
RARE BOARD $ 30,00 
WHOLE EIT $185.00 
FRINTING GRAPHICS WITH 
OS563D 
Normally we are limited to AScrt 


characters when using SSD because 


NON-ASCIT is masked out to Feep us from 
accidently sending control codes to 
other equipment (printers). That is not 


handy when you are programming games. 
Fortunately, it i6s easy to fix, Just 
PORE the offending code cut of 
existance. 


LOOFORX=9657TO09464: POKEX, 2534 2 NEXT 
LLIOPOKE9OS3, 234:FOKE9OR4, 234 


Then try 
appear. 


"SCHR (244)" and see the tank 


FOR SALE 


aiehs SUFERROARD IN CASE WITH BUILT-IN 
200-600 BAUD, REAL TIME CLOCK AND 
REVERSE VIDEO, | 

Sk: INCLUDES UNASSEMELED BE AARDVARK 
EXPANSION WITH MAJORITY OF PARTS. 3 AMP 
POWER SUPPLY, TAPERECORDER, SONY 12" 
MONITOR MODEL Is TELETYPE WITH INTERFACE 
(OPERATIONAL) , PAFER, BOOK, AND 
ACCESSORIES, APPROX. #200 WORTH OF 
SOFTWARE- TOTAL FRICE $799.00 


SEND INQUIRES To: 


ROBERT CORWIN, RD4#1 ROUTE 30s 
ai x th NOR 
FORTVILLE, NY 14770 mee 


OR CALL: (716) 933-4749 


WHATS NEW AT AARDVARK 


It has, aS usual, been an extremely busy 
couple of manths since we published the 
last Journal, 


The most fun item 
the month has gat 


we have picked up in 
to be Labyrinth. Its 
a real-time monster hunt through a maze 
Similar toa that in Minos. You actually 
S662 a 3-dimensional MALE AS you walk 
through stalking monsters. The game 
runs in real time and you see real 
monsters maving acrass the corridors in 
front of you as you stalk them. I admit 
to having spent several hours debuqging 
and testing this program. There werent 
any bugs init, but the testing was a 
Le ef - Pus In my personal evaluatian 
it's ane of the mneatest games we've 
published in several months. 

$13.95 on Tape and $15.95 on Disk. 


We also have exciting news for those wha 
like to experiment with Machine Code but 
don*t really want ta write ANY « 
AARDVARK is naw marketing a Compiler. 
It’s a very small, very tiny and very 


limited, but 1¢*6 abeq very cheap. This 
Campiler takes an extremely limited 
set of Basic keywords and writes them 
into a Machine Code program. The 
Compiler itself is actually a program 
which sits in memory numbered fram 8600 
on up oand which then PEEKS a program 
written between lines © and 7999 and 
canverts it to a Machine Code program 


which places it at the top of memory. 


It has very few keywords so far. Tt has 
t, ~s *, PORE, PEEK, IF, THEN, GOSUB and 
Bit. By the time you get this Journal 


we should have had added the additions 
an to it for FOR, NEXT, USR(X). With a 
little ingenuity you can write video 

games with anly the material in the 


Campiler., [ spent the first couple 
hours after I received it writing a 
FOTATQ CHIF INVASION type program iin 


Machine Code. It took me 
hours to write it, and 
Machine Code speeds. 


about two 
it aperated at 


As I have a personal enthusiasm for 
Campilers and have always wanted to have 
ONE, We are going to make some special 
deals an this Compiler in the hopes of 
getting a lat of peaple interested in 
it. The Compiler is available for all 
OST systems for #14,95, That is 
incredibly cheap. Furthermore, if 
anyone makes an addition ta the Compiler 
which we can then pass onto other 
Users, then will receive an immediate 
refund for $14.95 and receive an 
AARDVARK Gift Certificate for between 
$25.00 —- 100,00 depending upon the 
significance of the addition to the 
Campiler. The basic idea is to get a 
lat of people interested in and warking 
an a Compiler, 
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We've also taken off in a new directian 
at Aardvark and have came up with a 
series of programs which I consider ta 
be qgutstanding in their field. AARDVARK 
is finally in business. I‘ve had a 
persanal coamplaint for a lang time that 
almast all business software for small 
computers was designed ta be used by 
General Motors. Tt*s always double 
entry, highly confusing and difficult ta 
WIS . Tt narmally requires a Bookkeeper 
ar Accountant ta set it up properly. It 
alsa seems to always be designed ta run 
an at least a C2OEM or CSC. 


I?m finally getting around to 
about it. Aardvark now 
publishes a Series af programs desiqned 
far the Small Businessman. It was 
desiqned with the guy in mind wha has 4 
ta 15 employees, whe grasses less then 
19 million dollars a year and doesn’t 
want ta have a full time accountant an 
his staff. This stuff is extremely easy 
ta use, extremely clear and we made it 
very very, cheap. 


? 


Well now 
doeing something 


The program cluster consists of a 
General Ledger program which records all 
of the transactions, does a Cash account 
balancing, a Frofit-Loss balance and 
pravides information far a RHalance 
Sheet. The General Ledger program alsa 
has a meat little depreciation package 
which would be a goad pragram by itself. 


You enter in the equipment, the date 
you got it, its value and its life span 
and the camputer automatically figures 


the depreciation, stores ait iauna file, 
and enters it in ta the Ralance and 
Frofit-Loss Sheets when needed. 


We alsa have a Payroll Module that goes 
along with the General Ledger, an 
Inventory program, and an Accounts 
Receivable program. Except far the 
Accaunts Receivable program they are all 
interactive. Thats means that one 
pragram will feed another program 
infarmatiaon without hand transferring 
io Naw the neatest thing is that we 
are going ta sell the entire package af 
a Word Fracessor, General Ledger, 
Inventory, Fayroll and Accaunts 
Receivable far $299.95. That’s got to 
qualify as one af the great give-a-ways 
im the Computer World. Maybe nabady 
Will believe how gaad they are, because 
they are very, very cheap. 


We alsa now have a all Machine Code Word 
Fracessar far the BASIC in ROM machines. 
We are currently running it on CIP and 
sametime in the next cauple of days we 
hope ta get it set up on a C4F and CIF 
with the CIE and CiS ROMs. T*ts a 
fairly simple little word processor, but 
it has most or all of the features that 
you meed for low volume word processing. 
We are going to sell it for the rather 
unbelievable low price af $14.95. We 
haven’ t settled on a name for it as I go 
to press here but we’lil probably call it 
samething exotic like the Word Frocessor 
im Machine Code. 
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60 REM FLIGHT OF THE MILLENTUM FALCON 
70 REM BY JOHN WILSON 

GO VIl=540: IFFEER (37088) +127 THENVI=600 
FO FORES 7000, 2: 5P=357089: FOKESF, Os Fl=O:G 
QOSURLOOO 

100 PRINTTARCS) "LONG AGO" SPRINT: PRINT" I 
N A GALAXY FAR AWAY... 

119 FORX=1TOS2:FRINTsFORY=17T065: NEXTY, X 
7GOTO680 

12O M=O;rW= S22 D=2:SH=2325K=57100;hNS=S803 
92 S=S 39043127643 CH= 300 
3760: C$="SHIF DAMAGED": TU=O:N=O: 


130 C=S2 
Ri=Ar:k2=Sik 3=13s RL=32 
140 OF1:TH=3sME(1)=111:ME(2)=79:ME (3) =2 


150 TFVI=S40THENSOO 

160 LC=S2:W=25:MS=S54115:S=S2551:C=S5478 
rRLS 2S er kh 2250s Kh a=254 

300 PORES, SH:FORX=OTOD: FOREMS+WKXRND(O), 
ME CRND (QO) XTH+O0) s NEXT 

S10 FOKES, BL:P=PEER (Kh): TFRP=K2THENS=$—0 
S20 TFP=k1THENS=$+0 

2o0 FRINTSPRINTs IFFEER (9S) < >BLTHENS 60 
240 SC=SC+0: TF SC=CHTHEND=TH 

aa) GOTOSOO 

260 IFNTHENSOO 

279 TU=TU+0: TFTUSTHTHENN=0 

280 FORESF, 250: FORX=1TOLEN(C#) sPOREX+C, 
ASC (MIDS (CH, X,1))s NEXT 

290 PORESF,O: GOTOSO0O 

HOO YeG-SkeLs POKES, 32:FORX=1TO6 


S10 POREY+RND (8) #6+INT (CRND (8) k6)) kL, 12. 


O+RND (8) K30 

oeO PORESF, 1OO+RND (8) k1O0O:NEXT:POKESF, oO 
wa FORX=1TO0999: NEXT: GOSUBIOOO 

240 PRINT" YOUR SHIF IS DESTROYED"sFORX= 
LTOUSS9Vs NEXT 

JO GOSUBRLIOOO:FPRINT'" THE EMPIRE HAS WON! 
1 

2OO TFFITHENFPRINT:PRINT:FRINT" AGA 
Pape se 

w/O FORX=1TOS2:FPRINT 

VSO FORY=1TO80:NEXT:NEXT:PRINT: PRINT'SC 
OREs “sx 10 

wIO FPRINTSPRINTs INPUT" TRY AGAIN’ s AS 

600 [FASC (A$) =B9THENTU=03 SC=O:N=O:F1i=1: 
GOSUBRL1OOO: GOTO1L20 

619 GOSUBLIOOO:PRINT'"MAY THE FORCE BE WI 
TH YOU" 

620 IFSC“ SOOTHENFRINT:s PRINT: FPRINTTAE (C7) 
“UU NEED TF” 

630 FORX=1TOS2:FPRINT:s FORY=1TO8O: NEXT: NE 
XT sPORES7O00, 1: END 

680 FRINTTAR(6) "THE FLIGHT 

690 PRINT'OF THE MILLENTUM FALCON": FRIN 
TePRINT 

700 FRINT"YQU ARE FILOTING THE 

710 FRINTSFPRINT MILLENTUM FALCON THROUG 


720 FRINT:PRINT"AN ASTEROID FIELD TRYIN 


730 FPRINTSPRINT"TO ESCAPE THE EMPIRE 
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740 PRINTS PRINT FORCES. THiS 16 YOUR ON}. 
bs 

730 PRINT:IPRINT" MEANS OF ESCAFE.SEE HOW 
7OG FPRINT:PRINT"LONG YOU CAN LAST! ! 

760 PRINTIPRIATIPRINT "LEP GHLeT =— LEPT 
720 PRINTS PRINT’ RIGHT SHIFT — RIGHT 

7o0 PRINTS PRINTEPRINT HIT SHIFT KEY TO 
START" 

790 TSPEER CS7100) : X=RND(&) s TFL =1 THENGOT 
U7 FO | 
BOO GOSUBLOOO: GOTOL2O 

1900 TFVI=600THENTOSO 

1905 REM CHANGE SCREEN CLEARS FOR DISE 
SYSTEM. SEE LAST YEARS 

1906 REM ARTICLE ON FAST SCREEN CLEARS. 

1010 A=PEER (129) :B=FPEEK C130) sPOKET29, 19 
Z2EPOKE1SO, <iGrss=" " 

1O20 FORS=1TO62:5¢=Sé+" “se NEXT: POREL 29, 
A: FOREL 20, Ri RETURN 

1030 A=PEER (129) s:H=PEEK (1350) sPOREI12S9, 0:2 
POME LS. 21 42r5e=" © 

1040 FORK=17T0O72:S$=S8+" "sNEXTsPOKEI29,€A 
sPOKE1T 30, Bs RETURN 


4 REM WRITTEN BY JOHN WILSON 

S REM FOR C1,2,4F 5/1981 

& REM & TWO FERSON GAME 

19 VBR=540: [FPEEK (57088) +1 28THENVE=600 
20 GOSUBLOOO: FOKES7000, 4:FRINT"ANTI-AIR 
CRAFT ARTILLERY" :PRINT:FRINT 

20 PRINT"DIRECTIONS ARE SIMPLE-":PRINT: 
PRINT 

40 PRINT"LEFT GUN USE KEYS 1,2, 3":PRINT 
"RIGHT GUN USE N,M,<"sPRINT 

SO PRINT"KEY 7 STOPS THE GAME. ":FRINT 
60 FRINT"THE HIGHER THE PLANES":FRINT"A 
LTITUDE THE GREATER THE 

70 PRINT" SCORE. ":FRINTIPRINT'FIRST FLAY 
ER TO REACH" 

80 FRINT"100 FOINTS WINS. ":PRINT: INFUT" 
READY TO START':S$ 

90 CH=8: GOSUBIOOO0: SF=57089: FOKESF,O0:0F= 
4094: POKES 7000, & 

100 CO=55576:R1=2359:Li=2S71W=S2:LC#649k 
t= 708: F1=4:P2=129: R= 32: TA=6 

110 O=1:B0=46: TW=2:FORX=OTO6: READE (X) :N 
EXT: IFVB=540THENISO 

120 CO=S3204:LC=321W=2S:P1=251:PS=127:9F 
ORX=OTOS6: READE (X) :NEXT: TA=1 

150 BL=CO+2S*LC:FORX=OTOW: POKEX+BL, 135: 
NEXT: LE=CO+24LC:RC=LE+W 

160 IFVE=S40THENFORX=OTOSELC: POREBRL+0F4+ 
X,4:NEXT 

170 X=(BL-LC) +INT(W/2) :RG=X+8:LG=XxX—-9:PO 
KERG, 243:PO0KELG, 246:LD=34*LC 

180 GOSUBS10: GOSUBS60: FOKERF, Ri:FPOKELP, 
Li:Mi=—-1-LC:M2=1-LC 

190 FOKESSO, 1:CR=o:CL=0o 

200 POKER, Pi:P=FPEEK (EE) : IFF1THENGOSUB4 
00: GOTO230 

210 FORX=1TO1L0:NEXT 

200 IF P=k (0) THENF1=O0:F1=RG+Mi:RM=MikS:6 
OSUBRSOO: RB=RG+M1:GOTO2Z50 

230 IFP= 01) THENFOKERG, 243:M1=-1-LC 

240 IFFP=k (2) THENFOKERG, 242:M1=-LC 

250 POKEKE, P2:P=FEER (EB) : IFF2THENGOSUB4 
So: GOTO2R0 

240 FORX=17T08:NEXT: IFP= (4) THENS40 

270 IFP= (3) THENF2@=1:F1=LG+M2:LM=M2*"3:6 
OSUBRGOO: LB=LG+M2:GOTOSOO 

280 IFP=k (4) THENFOKELG, 245:M2=-LC 

290) IFP=k (5) THENFOKELG, 246:M2=1-LC 

S00 FOKERF, Bi RP=RP-RE:POKERF, Ri: CR=CR+R 
Fs IFCR>WTHENGOSUBSOO 


S20 FORELF, Bil P=LP+LP:PORELP,LIsCL=CL +h 
Fs TFCL :WTHENGOSUBSSO 

B90 GOTORLOO 

400 POKER, ks RB=RE+RM: IFRR«COTHENF 1=ZE: 
RE TURN 

410 Q=FEEK (RE) :Q1=PEER CORE+0O) 

20 IF Qs >BORQI< >RBTHENGOSUB6S0:F1=ZE:RET 
URN 

420 FORERB, BO: RETURN 

450 POKELB, Bil B=LB+LM: IPFLE¢ COTHENF2=ZEs 
RETURN 

460 Q=PEEK (LB) sQ@1=PEERK (LR+0) 

A7Q IFO< >BORQ1< >RTHENGOSUB670:F2=ZE: RET 
URN 

480 PORELB, ROsRETURM 

499 REM BLANKS FLANE CHOOSES FLANES ALT 
s#earheD 

BOO PORERF, Bs CR=ZE 

SiO RL=INT (RAND (0) #3): TFRL=LLTHENSIO 

SiS RF=0: IFRLSOTHENRF=TW 

S20 RE=RC+RL ALD: RETURN 

Sow POKELP,sOCL=Z2e 

S60 LLSINT CRND (0) *5) 3 TFLLeRLTHENSOO 

S65 LF=02 IFLLSOTHENLF=TW 

S70 LP=sLE+LL &LD:s RETURN 

600 FOREFI+OF, 2:FORX=2247TO226:FOKEFI, X: 
FOKESP, XsNEXT 

610 POREFI, 32:POQKEFI+OF, 8:POKESF,O:RETU 
RN 

6450 IFQ=RiORQ1i=RiTHENRS=RS+10-RL:GOTO7S 
t) 

660 RS=RS+10-LL: GOTO700 

670 IFQO=R1LOROL=Ri THENLS=LS+10-RL:GOTO7S 
*) 
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weSBO LS=LS+10—-LLs GOTO700 


7OO PORELF+OF, TWs FORX=25TOS2:PORELF, XsF 
QORESF, 200-X*TW:s NEXT 

i020 PORES, ZEs PORELPTOFP, Ces GOSUBSSOs GOT 
Q7 SO 

730 POKERP+OF, TWs FORX=235TOS2: POKERF, XaF 
DEE Sr, L2Srxk kT We NEXT 

740 PORESP, ZE:POKERF+OF, CBs GOSUBSOO 

700 TPRS?S90ORLS 399 THENSOO 

760 PRINTCHRS (135) TABRCTA)" "LS" 

ors nas | 

770 RETURN 

BOO FORX=1TO1LO000: NEXT: GOSUBLOOO: IFRS*LS 
THENS$="RIGHT": GOTO820 

Si0Q SH="LEFT" 

820 PRINTsFORX=1TO2SS:FPRINTTARCX) "THE "S 
$" GUNMAN WON!" sNEXT 

B20 INPUT" TRY AGAIN" sS%: IFASC (S#) =89THE 
NRS=O:LS=O: GOSUB1LOOO: GOTOLSO 

840 FORES7O00, 1sFORESS0O, O: GOSUBLOOO: END 
900 DATA4, 8, 2,64, 129, 32, 2,251,247, 253, 1 
ake gale eal 

1000 TFVBR=6900THENLO4AO 

LOLIO A=PEEK (129) sY=PEEK (130) sPOKEL29,19 
22rPOReisO, -iaraae" © 

1020 FORT=1T062:S5¢=5¢+" "sNEXTsFPOKE129, 
e2dlt PORE LS0O, 231: R$=CHRS (CB) 

1030 S$=RfsFORT=17T062: S#=S¢+R6: NEXT: POR 
Bier, AT PUKE TSO, ¥e RETURN 

19040 X=FPEERK C129) s Y=PEEK (130) sPOKE129,0:3 
POKELA0O,212:S5¢=" "sFORT=17T07 

1050 S#=S8+S5¢+" "“sNEXTsPOKE129,X:FOKELS 
O, Ys RETURN 
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